home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Guided Tour Mac II / B2 / B2.rsrc / TEXT_1152.txt < prev    next >
Encoding:
Text File  |  1988-03-04  |  325 b   |  12 lines
  1. >#move the icon
  2. SET SPRITEID[5] = 0
  3. IF CLICKON = 2 THEN  skip 4
  4. IF CLICKON = 3 THEN  skip 3
  5. IF CLICKON = 4 THEN  skip 2
  6. exit
  7. set &Y = (mouseh+((spriteh[clickon])-&H))#registration
  8. set &Z = (mousev+((spritev[clickon])-&V))#registration
  9. SET SPRITEH[CLICKON] = CONSTRAINH(7,&Y)
  10. SET SPRITEV[CLICKON] = CONSTRAINV(7,&Z)
  11. exit
  12. Àá